home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / kleines spiel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.3 KB  |  77 lines
  1. 10 print chr$(147)
  2. 20 print"***** begriffe raten ******
  3. 30 [153]
  4. 40 :
  5. 50 [143]-------- spielanleitung----------
  6. 60 :
  7. 70 :
  8. 80 [153]"der computer denkt sich eine
  9. 90 print"sportart.
  10. 100 [153]"sie sollen sie erraten.
  11. 110 print
  12. 120 print"sie koennen einen buchstaben
  13. 130 [153]"eingeben, dann erscheinen
  14. 140 print"die geratenen buchstaben an
  15. 150 [153]"der richtigen stelle.
  16. 160 print
  17. 170 print"haben sie das wort erraten,
  18. 180 [153]"geben sie es komplett ein.
  19. 190 :
  20. 200 :
  21. 210 rem------- wort auswaehlen -------
  22. 220 :
  23. 230 :
  24. 240 for x=1 to int(rnd(0)*14)+1
  25. 250 read u$
  26. 260 next
  27. 270 :
  28. 280 h$=""
  29. 290 for x=1 to len(u$)
  30. 300 h$=h$+"."
  31. 310 next
  32. 320 :
  33. 330 :
  34. 340 rem-------- rateversuch ---------
  35. 350 :
  36. 360 print:print
  37. 370 print"gesucht wird: ";h$
  38. 380 print
  39. 390 input"was raten sie";l$
  40. 400 if l$=u$ then 600
  41. 410 if len(l$)>1 then 360
  42. 420 :
  43. 430 :
  44. 440 rem--------- hilfswort ----------
  45. 450 :
  46. 460 :
  47. 470 n$=""
  48. 480 for x=1 to len(u$)
  49. 490 b$=mid$(u$,x,1)
  50. 500 c$=mid$(h$,x,1)
  51. 510 if l$=b$ then n$=n$+l$:goto 530
  52. 520 n$=n$+c$
  53. 530 next
  54. 540 h$=n$
  55. 550 goto 360
  56. 560 :
  57. 570 :
  58. 580 rem----  noch einmal ? ----------
  59. 590 :
  60. 600 print
  61. 610 print"sie haben richtig geraten
  62. 620 [153]
  63. 630 [153]"noch einmal (j/n) ?
  64. 640 get a$: if a$="" then 640
  65. 650 if a$="j" then run
  66. 660 print
  67. 670 print"auf wiedersehen
  68. 680 :
  69. 690 :
  70. 700 [143]------- woerterspeicher--------
  71. 710 :
  72. 720 :
  73. 730 [131] fussball,hockey,golf,boxen
  74. 740 [131] turnen,schwimmen,hochsprung
  75. 750 [131] segeln,fechten,judo,basketball
  76. 760 [131] kegeln,schifahren,tennis
  77.